home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu213.dms / pu213.adf / AUTOEXEC.AMOS / AUTOEXEC.amosSourceCode next >
AMOS Source Code  |  1992-03-26  |  36KB  |  982 lines

  1. Set Buffer 20
  2. INITIALIZATION:
  3. Dir$="RACE RATER:"
  4. Screen Open 0,320,200,2,Lowres
  5. Hide On : Cls 0 : Pen 1 : Paper 0 : Curs Off : Flash Off 
  6. Locate 0,0 : Print "IF YOU WANT TO READ THE DOCUMENTATION "
  7. Print "FILE (ALWAYS A GOOD IDEA)"
  8. Print 
  9. Print "BOOT UP YOUR AMIGA WITH WORKBENCH"
  10. Print "LOAD THE RACE RATER DISK AND CLICK"
  11. Print "ON THE READ ME ICON."
  12. Print 
  13. Print 
  14. Print "PRESS SPACE BAR TO START THE PROGRAM "
  15. Do 
  16.    While X$="" : X$=Inkey$ : Wend 
  17.    Exit If Scancode=64 : X$=""
  18. Loop 
  19. Proc RATING
  20. Procedure RATING
  21.    COMMENCE:
  22.    Load Iff "SCREENS/RACE MEETING TYPE SCREEN",0
  23.    Load Iff "SCREENS/RACE MEETINGS SCREEN",1
  24.    Load Iff "SCREENS/RACE TIME SCREEN",2
  25.    Load Iff "SCREENS/BLANK ENTRY SCREEN",3
  26.    Load Iff "SCREENS/PRIZE MONEY SCREEN",4
  27.    Get Disc Fonts : Set Font 1 : Set Text 2
  28.    Dim NAME$(39),ARATING(39),BRATING(39),ARATING#(39),BRATING#(39)
  29.    FIRST_SCREEN:
  30.    Screen 0 : Show On : Screen To Front 0
  31.    Do 
  32.       Reserve Zone : Reserve Zone 2
  33.       Set Zone 1,X Screen(256),Y Screen(141) To X Screen(320),Y Screen(167)
  34.       Set Zone 2,X Screen(256),Y Screen(221) To X Screen(320),Y Screen(247)
  35.       While Mouse Key<>1 : Wend : M=Mouse Zone
  36.       If M>0 and M<3 Then Bell 50 Else Bell 10
  37.       If M=1 Then Screen 1 : MEETINGTYPE$="FR" : Goto FLAT_RACE_MEETINGS
  38.       If M=2 Then Screen 1 : MEETINGTYPE$="NH" : Goto NH_RACE_MEETINGS
  39.       Exit If M=1 or M=2
  40.    Loop 
  41.    FLAT_RACE_MEETINGS:
  42.    Limit Mouse : Ink 0,2 : Show On : Curs Off 
  43.    Cls 5,X Screen(130),Y Screen(117) To X Screen(446),Y Screen(247)
  44.    Do 
  45.       Restore FLAT_RACE_DATA
  46.       Reserve Zone : Reserve Zone 34
  47.       For X=1 To 9
  48.          X$=Str$(X) : Read X$
  49.          Cls 2,X Screen(130),Y Screen(102+X*15) To X Screen(200),Y Screen(112+X*15)
  50.          Text X Screen(132),Y Screen(110+X*15),X$
  51.          Set Zone X,X Screen(130),Y Screen(102+X*15) To X Screen(200),Y Screen(112+X*15)
  52.       Next X
  53.       For X=10 To 18
  54.          X$=Str$(X) : Read X$
  55.          Cls 2,X Screen(212),Y Screen(102+(X-9)*15) To X Screen(282),Y Screen(112+(X-9)*15)
  56.          Text X Screen(214),Y Screen(110+(X-9)*15),X$
  57.          Set Zone X,X Screen(212),Y Screen(102+(X-9)*15) To X Screen(282),Y Screen(112+(X-9)*15)
  58.       Next X
  59.       For X=19 To 27
  60.          X$=Str$(X) : Read X$
  61.          Cls 2,X Screen(294),Y Screen(102+(X-18)*15) To X Screen(364),Y Screen(112+(X-18)*15)
  62.          Text X Screen(296),Y Screen(110+(X-18)*15),X$
  63.          Set Zone X,X Screen(294),Y Screen(102+(X-18)*15) To X Screen(364),Y Screen(112+(X-18)*15)
  64.       Next X
  65.       For X=28 To 34
  66.          X$=Str$(X) : Read X$
  67.          Cls 2,X Screen(376),Y Screen(102+(X-27)*15) To X Screen(446),Y Screen(112+(X-27)*15)
  68.          Text X Screen(378),Y Screen(110+(X-27)*15),X$
  69.          Set Zone X,X Screen(376),Y Screen(102+(X-27)*15) To X Screen(446),Y Screen(112+(X-27)*15)
  70.       Next X
  71.       Screen To Front 1 : Restore FLAT_RACE_DATA
  72.       While Mouse Key<>1 : Wend : M=Mouse Zone
  73.       If M>0 and M<35 Then Bell 50 Else Bell 10
  74.       For X=1 To M
  75.          X$=Str$(X) : Read X$
  76.       Next X
  77.       If M>0 and M<35 Then Ink 0,6
  78.       If M>0 and M<10 Then Cls 6,X Screen(130),Y Screen(102+M*15) To X Screen(200),Y Screen(112+M*15) : Text X Screen(132),Y Screen(110+M*15),X$
  79.       If M>9 and M<19 Then Cls 6,X Screen(212),Y Screen(102+(M-9)*15) To X Screen(282),Y Screen(112+(M-9)*15) : Text X Screen(214),Y Screen(110+(M-9)*15),X$
  80.       If M>18 and M<28 Then Cls 6,X Screen(294),Y Screen(102+(M-18)*15) To X Screen(364),Y Screen(112+(M-18)*15) : Text X Screen(296),Y Screen(110+(M-18)*15),X$
  81.       If M>27 and M<35 Then Cls 6,X Screen(376),Y Screen(102+(M-27)*15) To X Screen(446),Y Screen(112+(M-27)*15) : Text X Screen(378),Y Screen(110+(M-27)*15),X$
  82.       Wait 10 : MEETING$=X$
  83.       Exit If M>0 and M<35
  84.    Loop 
  85.    Do 
  86.       Reserve Zone : Reserve Zone 2
  87.       Set Zone 1,X Screen(172),Y Screen(261) To X Screen(241),Y Screen(280)
  88.       Set Zone 2,X Screen(336),Y Screen(261) To X Screen(405),Y Screen(280)
  89.       While Mouse Key<>1 : Wend : M=Mouse Zone
  90.       If M>0 and M<3 Then Bell 50 Else Bell 10
  91.       If M=1 Then Screen 2 : Goto RACE_TIMES
  92.       If M=2 Then Goto FLAT_RACE_MEETINGS
  93.       Exit If M=1 or M=2
  94.    Loop 
  95.    NH_RACE_MEETINGS:
  96.    Limit Mouse : Ink 0,2 : Show On : Curs Off 
  97.    Cls 5,X Screen(130),Y Screen(117) To X Screen(446),Y Screen(247)
  98.    Do 
  99.       Restore NH_RACE_DATA
  100.       Reserve Zone : Reserve Zone 44
  101.       For X=1 To 9
  102.          X$=Str$(X) : Read X$
  103.          Cls 2,X Screen(130),Y Screen(102+X*15) To X Screen(186),Y Screen(112+X*15)
  104.          Text X Screen(132),Y Screen(110+X*15),X$
  105.          Set Zone X,X Screen(130),Y Screen(102+X*15) To X Screen(186),Y Screen(112+X*15)
  106.       Next X
  107.       For X=10 To 18
  108.          X$=Str$(X) : Read X$
  109.          Cls 2,X Screen(195),Y Screen(102+(X-9)*15) To X Screen(251),Y Screen(112+(X-9)*15)
  110.          Text X Screen(197),Y Screen(110+(X-9)*15),X$
  111.          Set Zone X,X Screen(195),Y Screen(102+(X-9)*15) To X Screen(251),Y Screen(112+(X-9)*15)
  112.       Next X
  113.       For X=19 To 27
  114.          X$=Str$(X) : Read X$
  115.          Cls 2,X Screen(260),Y Screen(102+(X-18)*15) To X Screen(316),Y Screen(112+(X-18)*15)
  116.          Text X Screen(262),Y Screen(110+(X-18)*15),X$
  117.          Set Zone X,X Screen(260),Y Screen(102+(X-18)*15) To X Screen(316),Y Screen(112+(X-18)*15)
  118.       Next X
  119.       For X=28 To 36
  120.          X$=Str$(X) : Read X$
  121.          Cls 2,X Screen(325),Y Screen(102+(X-27)*15) To X Screen(381),Y Screen(112+(X-27)*15)
  122.          Text X Screen(327),Y Screen(110+(X-27)*15),X$
  123.          Set Zone X,X Screen(325),Y Screen(102+(X-27)*15) To X Screen(381),Y Screen(112+(X-27)*15)
  124.       Next X
  125.       For X=37 To 44
  126.          X$=Str$(X) : Read X$
  127.          Cls 2,X Screen(390),Y Screen(102+(X-36)*15) To X Screen(446),Y Screen(112+(X-36)*15)
  128.          Text X Screen(392),Y Screen(110+(X-36)*15),X$
  129.          Set Zone X,X Screen(390),Y Screen(102+(X-36)*15) To X Screen(446),Y Screen(112+(X-36)*15)
  130.       Next X
  131.       Screen To Front 1
  132.       Restore NH_RACE_DATA
  133.       While Mouse Key<>1 : Wend : M=Mouse Zone
  134.       If M>0 and M<45 Then Bell 50 Else Bell 10
  135.       For X=1 To M
  136.          X$=Str$(X) : Read X$
  137.       Next X
  138.       If M>0 and M<45 Then Ink 0,6
  139.       If M>0 and M<10 Then Cls 6,X Screen(130),Y Screen(102+M*15) To X Screen(186),Y Screen(112+M*15) : Text X Screen(132),Y Screen(110+M*15),X$
  140.       If M>9 and M<19 Then Cls 6,X Screen(195),Y Screen(102+(M-9)*15) To X Screen(251),Y Screen(112+(M-9)*15) : Text X Screen(197),Y Screen(110+(M-9)*15),X$
  141.       If M>18 and M<28 Then Cls 6,X Screen(260),Y Screen(102+(M-18)*15) To X Screen(316),Y Screen(112+(M-18)*15) : Text X Screen(262),Y Screen(110+(M-18)*15),X$
  142.       If M>27 and M<37 Then Cls 6,X Screen(325),Y Screen(102+(M-27)*15) To X Screen(381),Y Screen(112+(M-27)*15) : Text X Screen(327),Y Screen(110+(M-27)*15),X$
  143.       If M>36 and M<45 Then Cls 6,X Screen(390),Y Screen(102+(M-36)*15) To X Screen(446),Y Screen(112+(M-36)*15) : Text X Screen(392),Y Screen(110+(M-36)*15),X$
  144.       Wait 10 : MEETING$=X$
  145.       Exit If M>0 and M<45
  146.    Loop 
  147.    Do 
  148.       Reserve Zone : Reserve Zone 2
  149.       Set Zone 1,X Screen(172),Y Screen(261) To X Screen(241),Y Screen(280)
  150.       Set Zone 2,X Screen(336),Y Screen(261) To X Screen(405),Y Screen(280)
  151.       While Mouse Key<>1 : Wend : M=Mouse Zone
  152.       If M>0 and M<3 Then Bell 50 Else Bell 10
  153.       If M=1 Then Screen 2 : Goto RACE_TIMES
  154.       If M=2 Then Goto NH_RACE_MEETINGS
  155.       Exit If M=1 or M=2
  156.    Loop 
  157.    RACE_TIMES:
  158.    Ink 0,2 : Show On : Curs Off 
  159.    For X=1 To 12
  160.       X$=Str$(X)
  161.       Cls 2,X Screen(125+X*24),Y Screen(148) To X Screen(139+X*24),Y Screen(165)
  162.       Text X Screen(125+X*24),Y Screen(160),X$
  163.    Next X
  164.    For X=1 To 12
  165.       Y=(X-1)*5 : Y$=Str$(Y)
  166.       Cls 2,X Screen(125+X*24),Y Screen(215) To X Screen(139+X*24),Y Screen(232)
  167.       Text X Screen(125+X*24),Y Screen(227),Y$
  168.    Next X
  169.    Screen To Front 2
  170.    Do 
  171.       Reserve Zone : Reserve Zone 12
  172.       For X=1 To 12
  173.          Set Zone X,X Screen(125+X*24),Y Screen(148) To X Screen(139+X*24),Y Screen(165)
  174.       Next X
  175.       While Mouse Key<>1 : Wend : M=Mouse Zone
  176.       If M>0 and M<13 Then Bell 50 Else Bell 10
  177.       Ink 0,6
  178.       If M>0 and M<13
  179.          X$=Str$(M)
  180.          Cls 6,X Screen(125+M*24),Y Screen(148) To X Screen(139+M*24),Y Screen(165)
  181.          Text X Screen(125+M*24),Y Screen(160),X$
  182.       End If 
  183.       HOUR$=X$
  184.       Exit If M>0 and M<13
  185.    Loop 
  186.    Do 
  187.       Wait 10
  188.       Reserve Zone : Reserve Zone 12
  189.       For X=1 To 12
  190.          Set Zone X,X Screen(125+X*24),Y Screen(215) To X Screen(139+X*24),Y Screen(232)
  191.       Next X
  192.       While Mouse Key<>1 : Wend : M=Mouse Zone
  193.       If M>0 and M<13 Then Bell 50 Else Bell 10
  194.       If M>0 and M<13
  195.          Y=(M-1)*5
  196.          X$=Str$(Y)
  197.          Cls 6,X Screen(125+M*24),Y Screen(215) To X Screen(139+M*24),Y Screen(232)
  198.          Text X Screen(125+M*24),Y Screen(227),X$
  199.       End If 
  200.       If Y=0 Then X$="00"
  201.       If Y=5 Then X$="05"
  202.       TIME$=X$
  203.       Exit If M>0 and M<13
  204.    Loop 
  205.    Do 
  206.       Wait 10
  207.       Reserve Zone : Reserve Zone 2
  208.       Set Zone 1,X Screen(172),Y Screen(261) To X Screen(241),Y Screen(280)
  209.       Set Zone 2,X Screen(336),Y Screen(261) To X Screen(405),Y Screen(280)
  210.       While Mouse Key<>1 : Wend : M=Mouse Zone
  211.       If M>0 and M<3 Then Bell 50 Else Bell 10
  212.       If M=1 Then Screen To Front 3 : Screen 3 : Curs Pen 0 : Cls 5,X Screen(128),Y Screen(91) To X Screen(480),Y Screen(300) : Goto NAME_ENTRY
  213.       If M=2 Then Goto RACE_TIMES
  214.       Exit If M=1 or M=2
  215.    Loop 
  216.    NAME_ENTRY:
  217.    Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
  218.    Hide On : Curs On : Clear Key : Pen 1 : Paper 5
  219.    Locate 1,7 : Print "ENTER THE NAMES OF THE HORSES YOU WANT TO RATE IN THE ";HOUR$;" :";TIME$;" AT ";MEETING$
  220.    Locate 1,8 : Print "PRESS RETURN ON EMPTY LINE TO FINISH"
  221.    NUMBER=0
  222.    Pen 0
  223.    Do 
  224.       If NUMBER<20 Then Locate 1,10+NUMBER : Input "";NAME$(NUMBER)
  225.       If NUMBER>19 Then Locate 40,NUMBER-10 : Input "";NAME$(NUMBER)
  226.       NAME$(NUMBER)=Upper$(NAME$(NUMBER))
  227.       Exit If NAME$(NUMBER)=""
  228.       Inc NUMBER
  229.    Loop 
  230.    NUMBEROFHORSES=NUMBER
  231.    Curs Off : Wait 10 : NUMBER=0 : Goto COMMENCE_RATING
  232.    COMMENCE_RATING:
  233.    Curs Off : Show On 
  234.    Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
  235.    Locate 1,7 : Print "Ready to rate ";NAME$(NUMBER)
  236.    Locate 1,9 : Print "Enter the Weight ";NAME$(NUMBER);" is Set to Carry Today"
  237.    Pen 4 : Paper 6
  238.    Menu$(1)="WEIGHT "
  239.    Restore STONE_DATA
  240.    For WSS=1 To 6
  241.       WSS$=Str$(WSS)
  242.       Read WSS$
  243.       Menu$(1,WSS)=WSS$
  244.    Next WSS
  245.    WSP=1
  246.    Restore POUND_DATA
  247.    Repeat 
  248.       WSP$=Str$(WSP)
  249.       Read WSP$
  250.       For WSS=1 To 6
  251.          Menu$(1,WSS,WSP)=WSP$
  252.       Next WSS
  253.       Inc WSP
  254.    Until WSP=15
  255.    Menu On 
  256.    Do 
  257.       S=Choice
  258.       WSSC=Choice(2)
  259.       WSPC=Choice(3)
  260.       Exit If S=-1
  261.    Loop 
  262.    Restore STONE_DATA
  263.    For WSS=1 To WSSC
  264.       WSS$=Str$(WSS) : Read WSS$
  265.    Next WSS
  266.    Restore POUND_DATA
  267.    For WSP=1 To WSPC
  268.       WSP$=Str$(WSP) : Read WSP$
  269.    Next WSP
  270.    Pen 1 : Paper 5
  271.    Locate 1,11 : Print Space$(80)
  272.    Locate 1,11 : Print NAME$(NUMBER);" Is Set To Carry ";WSS$;WSP$;"Today"
  273.    Pen 0 : Locate 1,13 : Print "If This is Correct Press Left Mouse Button to Continue"
  274.    Locate 1,14 : Print "or Right Mouse Button to Re-select Weight."
  275.    While Mouse Key=0
  276.    Wend 
  277.    If Mouse Key=1
  278.       Restore SEED_DATA_STONES
  279.       For WSS=1 To WSSC
  280.          WSS$=Str$(WSS) : Read WSS$
  281.       Next WSS
  282.       WSS#=Val(WSS$)
  283.       Restore SEED_DATA_POUNDS
  284.       For WSP=1 To WSPC
  285.          WSP$=Str$(WSP) : Read WSP$
  286.       Next WSP
  287.       WSP#=Val(WSP$)
  288.       ARATING#(NUMBER)=(WSS#*14+WSP#)*-1
  289.       BRATING#(NUMBER)=(WSS#*14+WSP#)*-1
  290.       Menu Del 
  291.       Goto CHOOSE_ASSESSING_RACE
  292.    End If 
  293.    If Mouse Key=2 Then Locate 1,13 : Print Space$(80) : Locate 1,14 : Print Space$(80) : Goto COMMENCE_RATING
  294.    CHOOSE_ASSESSING_RACE:
  295.    Hide On : Curs Pen 0 : Curs On : Clear Key 
  296.    Locate 1,13 : Print Space$(80) : Locate 1,14 : Print Space$(80)
  297.    Locate 1,13 : Print "You can rate ";NAME$(NUMBER);"'s last race, which is RACE A"
  298.    Locate 1,14 : Print "or you can rate ";NAME$(NUMBER);"'s previous race, which is RACE B"
  299.    Locate 1,16 : Print "Which race do you wish to rate (A or B) " : Locate 41,16
  300.    Do 
  301.       X$=""
  302.       While X$=""
  303.          X$=Inkey$
  304.       Wend 
  305.       Exit If Key State(32)=-1
  306.       Exit If Key State(53)=-1
  307.    Loop 
  308.    If Scancode=32 Then RATING$="A" Else RATING$="B"
  309.    Screen 4 : Goto PRIZE_MONEY_1
  310.    PRIZE_MONEY_1:
  311.    Ink 0,5 : Curs Off : Show On 
  312.    Set Text 2 : 
  313.    Text X Screen(236),Y Screen(105),RATING$ : Ink 0,2
  314.    Do 
  315.       Reserve Zone : Reserve Zone 22
  316.       Restore PRIZE_MONEY_DATA_1
  317.       For X=1 To 7
  318.          X$=Str$(X) : Read X$
  319.          Cls 2,X Screen(130),Y Screen(97+X*18) To X Screen(228),Y Screen(111+X*18)
  320.          Text X Screen(132),Y Screen(108+X*18),X$
  321.          Set Zone X,X Screen(130),Y Screen(97+X*18) To X Screen(228),Y Screen(111+X*18)
  322.       Next X
  323.       For X=8 To 14
  324.          X$=Str$(X) : Read X$
  325.          Cls 2,X Screen(239),Y Screen(97+(X-7)*18) To X Screen(337),Y Screen(111+(X-7)*18)
  326.          Text X Screen(241),Y Screen(108+(X-7)*18),X$
  327.          Set Zone X,X Screen(239),Y Screen(97+(X-7)*18) To X Screen(337),Y Screen(111+(X-7)*18)
  328.       Next X
  329.       For X=15 To 21
  330.          X$=Str$(X) : Read X$
  331.          Cls 2,X Screen(348),Y Screen(97+(X-14)*18) To X Screen(446),Y Screen(111+(X-14)*18)
  332.          Text X Screen(350),Y Screen(108+(X-14)*18),X$
  333.          Set Zone X,X Screen(348),Y Screen(97+(X-14)*18) To X Screen(446),Y Screen(111+(X-14)*18)
  334.       Next X
  335.       Set Zone 22,X Screen(362),Y Screen(260) To X Screen(432),Y Screen(279)
  336.       Screen To Front 4
  337.       Restore PRIZE_MONEY_DATA_1
  338.       While Mouse Key<>1
  339.       Wend 
  340.       M=Mouse Zone
  341.       If M>0 and M<23 Then Bell 50 Else Bell 10
  342.       If M>0 and M<23 Then Ink 0,6
  343.       For X=1 To M
  344.          X$=Str$(X) : Read X$
  345.       Next X
  346.       If M>0 and M<8 Then Cls 6,X Screen(130),Y Screen(97+M*18) To X Screen(228),Y Screen(111+M*18) : Text X Screen(132),Y Screen(108+M*18),X$
  347.       If M>7 and M<15 Then Cls 6,X Screen(239),Y Screen(97+(M-7)*18) To X Screen(337),Y Screen(111+(M-7)*18) : Text X Screen(241),Y Screen(108+(M-7)*18),X$
  348.       If M>14 and M<22 Then Cls 6,X Screen(348),Y Screen(97+(M-14)*18) To X Screen(446),Y Screen(111+(M-14)*18) : Text X Screen(350),Y Screen(108+(M-14)*18),X$
  349.       If M=22 Then Goto PRIZE_MONEY_2
  350.       Restore MONEY_RATING_DATA_1
  351.       For Y=1 To M
  352.          Y$=Str$(Y)
  353.          Read Y$
  354.       Next Y : Wait 25
  355.       Exit If M>0 and M<23
  356.    Loop 
  357.    Do 
  358.       Reserve Zone : Reserve Zone 2
  359.       While Mouse Key<>1
  360.       Wend 
  361.       Set Zone 1,X Screen(145),Y Screen(260) To X Screen(215),Y Screen(279)
  362.       Set Zone 2,X Screen(253),Y Screen(260) To X Screen(323),Y Screen(279)
  363.       M=Mouse Zone
  364.       If M>0 and M<3 Then Bell 50 Else Bell 10
  365.       If M=1
  366.          VRATING#=Val(Y$)
  367.          If RATING$="A"
  368.             ARATING#(NUMBER)=ARATING#(NUMBER)+VRATING#
  369.          End If 
  370.          If RATING$="B"
  371.             BRATING#(NUMBER)=BRATING#(NUMBER)+VRATING#
  372.          End If 
  373.          Screen 3 : Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
  374.          Screen To Front 3 : Goto FINISHING_POSITION
  375.       End If 
  376.       If M=2 Then Goto PRIZE_MONEY_1
  377.       Exit If M=1 or M=2
  378.    Loop 
  379.    PRIZE_MONEY_2:
  380.    Cls 5,X Screen(128),Y Screen(114) To X Screen(448),Y Screen(238)
  381.    Ink 0,2 : Set Text 2
  382.    Do 
  383.       Reserve Zone : Reserve Zone 20
  384.       Restore PRIZE_MONEY_DATA_2
  385.       For X=1 To 7
  386.          X$=Str$(X) : Read X$
  387.          Cls 2,X Screen(130),Y Screen(97+X*18) To X Screen(228),Y Screen(111+X*18)
  388.          Text X Screen(132),Y Screen(108+X*18),X$
  389.          Set Zone X,X Screen(130),Y Screen(97+X*18) To X Screen(228),Y Screen(111+X*18)
  390.       Next X
  391.       For X=8 To 14
  392.          X$=Str$(X) : Read X$
  393.          Cls 2,X Screen(239),Y Screen(97+(X-7)*18) To X Screen(337),Y Screen(111+(X-7)*18)
  394.          Text X Screen(241),Y Screen(108+(X-7)*18),X$
  395.          Set Zone X,X Screen(239),Y Screen(97+(X-7)*18) To X Screen(337),Y Screen(111+(X-7)*18)
  396.       Next X
  397.       For X=15 To 19
  398.          X$=Str$(X) : Read X$
  399.          Cls 2,X Screen(348),Y Screen(97+(X-14)*18) To X Screen(446),Y Screen(111+(X-14)*18)
  400.          Text X Screen(350),Y Screen(108+(X-14)*18),X$
  401.          Set Zone X,X Screen(348),Y Screen(97+(X-14)*18) To X Screen(446),Y Screen(111+(X-14)*18)
  402.       Next X
  403.       Set Zone 20,X Screen(362),Y Screen(260) To X Screen(432),Y Screen(279)
  404.       Restore PRIZE_MONEY_DATA_2
  405.       While Mouse Key<>1
  406.       Wend 
  407.       M=Mouse Zone
  408.       If M>0 and M<21 Then Bell 50 Else Bell 10
  409.       If M>0 and M<21 Then Ink 0,6
  410.       For X=1 To M
  411.          X$=Str$(X) : Read X$
  412.       Next X
  413.       If M>0 and M<8 Then Cls 6,X Screen(130),Y Screen(97+M*18) To X Screen(228),Y Screen(111+M*18) : Text X Screen(132),Y Screen(108+M*18),X$
  414.       If M>7 and M<15 Then Cls 6,X Screen(239),Y Screen(97+(M-7)*18) To X Screen(337),Y Screen(111+(M-7)*18) : Text X Screen(241),Y Screen(108+(M-7)*18),X$
  415.       If M>14 and M<20 Then Cls 6,X Screen(348),Y Screen(97+(M-14)*18) To X Screen(446),Y Screen(111+(M-14)*18) : Text X Screen(350),Y Screen(108+(M-14)*18),X$
  416.       If M=20 Then Goto PRIZE_MONEY_1
  417.       Restore MONEY_RATING_DATA_2
  418.       For Y=1 To M
  419.          Y$=Str$(Y) : Read Y$
  420.       Next Y
  421.       Wait 25
  422.       Exit If M>0 and M<21
  423.    Loop 
  424.    Do 
  425.       Reserve Zone : Reserve Zone 2
  426.       Set Zone 1,X Screen(145),Y Screen(260) To X Screen(215),Y Screen(279)
  427.       Set Zone 2,X Screen(253),Y Screen(260) To X Screen(323),Y Screen(279)
  428.       While Mouse Key<>1
  429.       Wend 
  430.       M=Mouse Zone
  431.       If M>0 and M<3 Then Bell 50 Else Bell 10
  432.       If M=1
  433.          VRATING#=Val(Y$)
  434.          If RATING$="A"
  435.             ARATING#(NUMBER)=ARATING#(NUMBER)+VRATING#
  436.          End If 
  437.          If RATING$="B"
  438.             BRATING#(NUMBER)=BRATING#(NUMBER)+VRATING#
  439.          End If 
  440.          Screen 3 : Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
  441.          Screen To Front 3 : Goto FINISHING_POSITION
  442.       End If 
  443.       If M=2 Then Goto PRIZE_MONEY_2
  444.       Exit If M=1 or M=2
  445.    Loop 
  446.    FINISHING_POSITION:
  447.    Curs Off : Show On 
  448.    Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
  449.    Locate 1,7 : Print "Enter Finishing Position of ";NAME$(NUMBER);" in Race ";RATING$
  450.    Pen 4 : Paper 6
  451.    Menu$(1)="FINISH "
  452.    Restore FINISH_DATA
  453.    For FP=1 To 6
  454.       FP$=Str$(FP)
  455.       Read FP$
  456.       Menu$(1,FP)=FP$
  457.    Next FP
  458.    Menu On 
  459.    Do 
  460.       S=Choice
  461.       FPC=Choice(2)
  462.       Exit If S=-1
  463.    Loop 
  464.    Restore FINISH_DATA
  465.    For FP=1 To FPC
  466.       FP$=Str$(FP) : Read FP$
  467.    Next FP
  468.    Pen 1 : Paper 5
  469.    Locate 1,7 : Print Space$(80)
  470.    Locate 1,7 : Print NAME$(NUMBER);" Finished ";FP$;"in Race ";RATING$
  471.    Pen 0 : Locate 1,9 : Print "If This is Correct Press Left Mouse Button to Continue"
  472.    Locate 1,10 : Print "or Right Mouse Button to Re-select Finishing Position."
  473.    While Mouse Key=0
  474.    Wend 
  475.    If Mouse Key=1 Then Menu Del : Goto RACE_DISTANCE
  476.    If Mouse Key=2 Then Goto FINISHING_POSITION
  477.    RACE_DISTANCE:
  478.    Curs Off : Show On 
  479.    Locate 1,9 : Print Space$(80) : Locate 1,10 : Print Space$(80)
  480.    Locate 1,9 : Print "Enter Distance of Race ";RATING$
  481.    Pen 4 : Paper 6
  482.    Menu$(1)="RACE DISTANCE "
  483.    If MEETINGTYPE$="FR" Then Restore FLAT_DISTANCE_DATA
  484.    If MEETINGTYPE$="NH" Then Restore NH_DISTANCE_DATA
  485.    For RD=1 To 21
  486.       RD$=Str$(RD)
  487.       Read RD$
  488.       Menu$(1,RD)=RD$
  489.    Next RD
  490.    Menu On 
  491.    Do 
  492.       S=Choice
  493.       RDC=Choice(2)
  494.       Exit If S=-1
  495.    Loop 
  496.    If MEETINGTYPE$="FR" Then Restore FLAT_DISTANCE_DATA
  497.    If MEETINGTYPE$="NH" Then Restore NH_DISTANCE_DATA
  498.    For RD=1 To RDC
  499.       RD$=Str$(RD) : Read RD$
  500.    Next RD
  501.    Pen 1 : Paper 5
  502.    Locate 1,9 : Print Space$(80)
  503.    Locate 1,9 : Print "The Distance of Race ";RATING$;" was ";RD$
  504.    Pen 0 : Locate 1,11 : Print "If This is Correct Press Left Mouse Button to Continue"
  505.    Locate 1,12 : Print "or Right Mouse Button to Re-select Race Distance."
  506.    While Mouse Key=0
  507.    Wend 
  508.    If Mouse Key=1
  509.       Menu Del 
  510.       If MEETINGTYPE$="FR"
  511.          Restore FLAT_DISTANCE_VALUES_DATA
  512.       End If 
  513.       If MEETINGTYPE$="NH"
  514.          Restore NH_DISTANCE_VALUES_DATA
  515.       End If 
  516.       For RD=1 To RDC
  517.          RD$=Str$(RD) : Read RD$
  518.          RD#=Val(RD$)
  519.       Next RD
  520.    End If 
  521.    If Mouse Key=2 Then Locate 1,9 : Print Space$(80) : Locate 1,11 : Print Space$(80) : Locate 1,12 : Print Space$(80) : Goto RACE_DISTANCE
  522.    WEIGHT_CARRIED:
  523.    Curs Off : Show On : Locate 1,11 : Print Space$(80) : Locate 1,12 : Print Space$(80)
  524.    Locate 1,11 : Print "Enter Weight Carried in Race ";RATING$;" by ";NAME$(NUMBER)
  525.    Pen 4 : Paper 6
  526.    Menu$(1)="WEIGHT "
  527.    Restore STONE_DATA
  528.    For WCS=1 To 6
  529.       WCS$=Str$(WCS)
  530.       Read WCS$
  531.       Menu$(1,WCS)=WCS$
  532.    Next WCS
  533.    WCP=1
  534.    Restore POUND_DATA
  535.    Repeat 
  536.       WCP$=Str$(WCP)
  537.       Read WCP$
  538.       For WCS=1 To 6
  539.          Menu$(1,WCS,WCP)=WCP$
  540.       Next WCS
  541.       Inc WCP
  542.    Until WCP=15
  543.    Menu On 
  544.    Do 
  545.       S=Choice
  546.       WCSC=Choice(2)
  547.       WCPC=Choice(3)
  548.       Exit If S=-1
  549.    Loop 
  550.    Restore STONE_DATA
  551.    For WCS=1 To WCSC
  552.       WCS$=Str$(WCS) : Read WCS$
  553.    Next WCS
  554.    Restore POUND_DATA
  555.    For WCP=1 To WCPC
  556.       WCP$=Str$(WCP) : Read WCP$
  557.    Next WCP
  558.    Pen 0 : Paper 5
  559.    Locate 1,11 : Print Space$(80)
  560.    Pen 1 : Locate 1,11 : Print NAME$(NUMBER);" Carried ";WCS$;WCP$;"in Race ";RATING$
  561.    Pen 0 : Locate 1,13 : Print "If This is Correct Press Left Mouse Button to Continue"
  562.    Locate 1,14 : Print "or Right Mouse Button to Re-select Weight."
  563.    While Mouse Key=0
  564.    Wend 
  565.    If Mouse Key=1
  566.       Restore SEED_DATA_STONES
  567.       For WCS=1 To WCSC
  568.          WCS$=Str$(WCS) : Read WCS$
  569.       Next WCS
  570.       WCS#=Val(WCS$)
  571.       Restore SEED_DATA_POUNDS
  572.       For WCP=1 To WCPC
  573.          WCP$=Str$(WCP) : Read WCP$
  574.       Next WCP
  575.       WCP#=Val(WCP$)
  576.       If RATING$="A"
  577.          ARATING#(NUMBER)=ARATING#(NUMBER)+(WCS#*14+WCP#)
  578.       End If 
  579.       If RATING$="B"
  580.          BRATING#(NUMBER)=BRATING#(NUMBER)+(WCS#*14+WCP#)
  581.       End If 
  582.       Menu Del 
  583.       If FP<>2
  584.          Goto BEHIND_WINNER_RATING
  585.       End If 
  586.       If FP=2
  587.          Goto SPEED_RATING_WINNER
  588.       End If 
  589.    End If 
  590.    If Mouse Key=2 Then Locate 1,13 : Print Space$(80) : Locate 1,14 : Print Space$(80) : Goto WEIGHT_CARRIED
  591.    BEHIND_WINNER_RATING:
  592.    Curs Pen 0 : Curs On : Hide On 
  593.    Locate 1,13 : Print Space$(80)
  594.    Locate 1,14 : Print Space$(80)
  595.    Locate 1,13 : Print "Enter Total Distance ";NAME$(NUMBER);" was Beaten by in Race ";RATING$
  596.    Locate 51+Len(NAME$(NUMBER)),13 : Print "  Lengths"
  597.    Locate 47+Len(NAME$(NUMBER)),13 : Input "";BW$
  598.    Locate 1,13 : Print Space$(80)
  599.    Pen 1 : Locate 1,13 : Print NAME$(NUMBER);" was Beaten by a Total of ";BW$;" Lengths"
  600.    Pen 0 : Locate 1,15 : Print "Is This Correct (Y/N)" : Locate 22,15
  601.    Do 
  602.       X$=""
  603.       While X$=""
  604.          X$=Inkey$
  605.       Wend 
  606.       Exit If Key State(21)=-1
  607.       Exit If Key State(54)=-1
  608.    Loop 
  609.    If Scancode=21 Then ANSWER$="Y" Else ANSWER$="N"
  610.    If ANSWER$="Y"
  611.       BW#=Val(BW$)
  612.       BWRATING#=(20/RD#*BW#)*-1
  613.       If RATING$="A"
  614.          ARATING#(NUMBER)=ARATING#(NUMBER)+BWRATING#
  615.       End If 
  616.       If RATING$="B"
  617.          BRATING#(NUMBER)=BRATING#(NUMBER)+BWRATING#
  618.       End If 
  619.       Goto SPEED_RATING_PLACED
  620.    Else Locate 1,15 : Print Space$(80) : Goto BEHIND_WINNER_RATING
  621.    End If 
  622.    SPEED_RATING_PLACED:
  623.    Curs On : Hide On : Clear Key 
  624.    Locate 1,15 : Print "Did the Winner of Race ";RATING$;" Achieve a Speed Rating (Y/N)" : Locate 55,15
  625.    Do 
  626.       X$=""
  627.       While X$=""
  628.          X$=Inkey$
  629.       Wend 
  630.       Exit If Key State(21)=-1
  631.       Exit If Key State(54)=-1
  632.    Loop 
  633.    If Scancode=21 Then ANSWER$="Y" Else ANSWER$="N"
  634.    If ANSWER$="N"
  635.       If RATING$="A"
  636.          ARATING(NUMBER)=Int(ARATING#(NUMBER))
  637.       End If 
  638.       If RATING$="B"
  639.          BRATING(NUMBER)=Int(BRATING#(NUMBER))
  640.       End If 
  641.       Goto CONTINUE_RATING
  642.    End If 
  643.    If ANSWER$="Y"
  644.       Locate 1,15 : Print Space$(80) : Locate 1,15 : Input "Enter Rating Achieved by Winner ";SR$
  645.       Locate 1,15 : Print Space$(80)
  646.       Pen 1 : Locate 1,15 : Print "The Winner of Race ";RATING$;" Achieved a Speed Rating of ";SR$
  647.       Pen 0 : Locate 1,17 : Print "Is This Correct (Y/N)" : Locate 23,17
  648.    End If 
  649.    Do 
  650.       X$=""
  651.       While X$=""
  652.          X$=Inkey$
  653.       Wend 
  654.       Exit If Key State(21)=-1
  655.       Exit If Key State(54)=-1
  656.    Loop 
  657.    If Scancode=21 Then ANSWER2$="Y" Else ANSWER2$="N"
  658.    If ANSWER2$="Y"
  659.       SR#=Val(SR$)
  660.       Goto WINNER_WEIGHT
  661.    End If 
  662.    If ANSWER2$="N"
  663.       Locate 1,17 : Print Space$(80)
  664.       Goto SPEED_RATING_PLACED
  665.    End If 
  666.    WINNER_WEIGHT:
  667.    Curs Off : Show On 
  668.    Locate 1,17 : Print "Enter Weight Carried by Winner in Race ";RATING$
  669.    Pen 4 : Paper 6
  670.    Menu$(1)="WEIGHT "
  671.    Restore STONE_DATA
  672.    For WWCS=1 To 6
  673.       WWCS$=Str$(WWCS)
  674.       Read WWCS$
  675.       Menu$(1,WWCS)=WWCS$
  676.    Next WWCS
  677.    WWCP=1
  678.    Restore POUND_DATA
  679.    Repeat 
  680.       WWCP$=Str$(WWCP)
  681.       Read WWCP$
  682.       For WWCS=1 To 6
  683.          Menu$(1,WWCS,WWCP)=WWCP$
  684.       Next WWCS
  685.       Inc WWCP
  686.    Until WWCP=15
  687.    Menu On 
  688.    Do 
  689.       S=Choice
  690.       WWCSC=Choice(2)
  691.       WWCPC=Choice(3)
  692.       Exit If S=-1
  693.    Loop 
  694.    Restore STONE_DATA
  695.    For WWCS=1 To WWCSC
  696.       WWCS$=Str$(WWCS) : Read WWCS$
  697.    Next WWCS
  698.    Restore POUND_DATA
  699.    For WWCP=1 To WWCPC
  700.       WWCP$=Str$(WWCP) : Read WWCP$
  701.    Next WWCP
  702.    Pen 0 : Paper 5 : Locate 1,19 : Print Space$(80)
  703.    Pen 1 : Locate 1,17 : Print "The Winner Carried ";WWCS$;WWCP$;" in Race ";RATING$
  704.    Pen 0 : Locate 1,19 : Print "If This is Correct Press Left Mouse Button to Continue"
  705.    Locate 1,20 : Print "or Right Mouse Button to Re-select Weight of Winner."
  706.    While Mouse Key=0
  707.    Wend 
  708.    If Mouse Key=1
  709.       Restore SEED_DATA_STONES
  710.       For WWCS=1 To WWCSC
  711.          WWCS$=Str$(WWCS) : Read WWCS$
  712.       Next WWCS
  713.       WWCS#=Val(WWCS$)
  714.       Restore SEED_DATA_POUNDS
  715.       For WWCP=1 To WWCPC
  716.          WWCP$=Str$(WWCP) : Read WWCP$
  717.       Next WWCP
  718.       WWCP#=Val(WWCP$)
  719.       If MEETINGTYPE$="FR"
  720.          SR#=SR#-(WWCS#*14+WWCP#)+126
  721.       End If 
  722.       If MEETINGTYPE$="NH"
  723.          SR#=SR#-(WWCS#*14+WWCP#)+168
  724.       End If 
  725.       Menu Del 
  726.       If RATING$="A"
  727.          ARATING#(NUMBER)=ARATING#(NUMBER)+SR#
  728.          ARATING(NUMBER)=Int(ARATING#(NUMBER))
  729.       End If 
  730.       If RATING$="B"
  731.          BRATING#(NUMBER)=BRATING#(NUMBER)+SR#
  732.          BRATING(NUMBER)=Int(BRATING#(NUMBER))
  733.       End If 
  734.       Goto CONTINUE_RATING
  735.    End If 
  736.    If Mouse Key=2
  737.       Locate 1,17 : Print Space$(80) : Locate 1,19 : Print Space$(80) : Locate 1,20 : Print Space$(80)
  738.       Goto WINNER_WEIGHT
  739.    End If 
  740.    SPEED_RATING_WINNER:
  741.    Locate 1,13 : Print Space$(80)
  742.    Locate 1,14 : Print Space$(80)
  743.    Clear Key : Hide On : Curs On 
  744.    Locate 1,13 : Print "Did ";NAME$(NUMBER);" Achieve a Speed Rating in Race ";RATING$;" (Y/N)"
  745.    Locate Len(NAME$(NUMBER))+44,13
  746.    Do 
  747.       X$=""
  748.       While X$=""
  749.          X$=Inkey$
  750.       Wend 
  751.       Exit If Key State(21)=-1
  752.       Exit If Key State(54)=-1
  753.    Loop 
  754.    If Scancode=21 Then ANSWER$="Y" Else ANSWER$="N"
  755.    If ANSWER$="N"
  756.       If RATING$="A"
  757.          ARATING(NUMBER)=Int(ARATING#(NUMBER))
  758.       End If 
  759.       If RATING$="B"
  760.          BRATING(NUMBER)=Int(BRATING#(NUMBER))
  761.       End If 
  762.       Goto CONTINUE_RATING
  763.    End If 
  764.    If ANSWER$="Y"
  765.       Locate 1,13 : Print Space$(80)
  766.       Locate 1,13 : Print Space$(80) : Locate 1,13 : Print "Enter Rating Achieved by ";NAME$(NUMBER)
  767.       Locate 27+Len(NAME$(NUMBER)),13 : Input "";SR$
  768.       Locate 1,13 : Print Space$(80)
  769.       Pen 1 : Locate 1,13 : Print NAME$(NUMBER);" Achieved a Speed Rating of ";SR$;" in Race ";Upper$(RATING$)
  770.       Pen 0 : Locate 1,15 : Print "Is This Correct (Y/N)" : Locate 23,15
  771.    End If 
  772.    Do 
  773.       X$=""
  774.       While X$=""
  775.          X$=Inkey$
  776.       Wend 
  777.       Exit If Key State(21)=-1
  778.       Exit If Key State(54)=-1
  779.    Loop 
  780.    If Scancode=21 Then ANSWER2$="Y" Else ANSWER2$="N"
  781.    If ANSWER2$="Y" Then SR#=Val(SR$)
  782.    If ANSWER2$="N" Then Locate 1,15 : Print Space$(80) : Goto SPEED_RATING_WINNER
  783.    If MEETINGTYPE$="FR" Then SR#=SR#-(WCS#*14+WCP#)+126
  784.    If MEETINGTYPE$="NH" Then SR#=SR#-(WCS#*14+WCP#)+168
  785.    If RATING$="A"
  786.       ARATING#(NUMBER)=ARATING#(NUMBER)+SR#
  787.       ARATING(NUMBER)=Int(ARATING#(NUMBER))
  788.    End If 
  789.    If RATING$="B"
  790.       BRATING#(NUMBER)=BRATING#(NUMBER)+SR#
  791.       BRATING(NUMBER)=Int(BRATING#(NUMBER))
  792.    End If 
  793.    If ARATING(NUMBER)<0 Then ARATING(NUMBER)=0
  794.    If BRATING(NUMBER)<0 Then BRATING(NUMBER)=0
  795.    Goto CONTINUE_RATING
  796.    CONTINUE_RATING:
  797.    Hide On : Curs On 
  798.    If ARATING(NUMBER)<0 Then ARATING(NUMBER)=0
  799.    If BRATING(NUMBER)<0 Then BRATING(NUMBER)=0
  800.    If RATING$="A"
  801.       Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
  802.       Locate 1,7 : Print "Do You Want To Rate RACE B For ";NAME$(NUMBER);" (Y/N)"
  803.       Locate 39+Len(NAME$(NUMBER)),7
  804.       Do 
  805.          X$=""
  806.          While X$=""
  807.             X$=Inkey$
  808.          Wend 
  809.          Exit If Key State(21)=-1
  810.          Exit If Key State(54)=-1
  811.       Loop 
  812.       If Scancode=21
  813.          ANSWER$="Y"
  814.          RATING$="B"
  815.          Screen 4
  816.          Goto PRIZE_MONEY_1
  817.       Else 
  818.          ANSWER$="N"
  819.          Cls 5,X Screen(128),Y Screen(91) To X Screen(428),Y Screen(300)
  820.          Curs Off 
  821.          Pen 1 : Paper 5 : Locate 1,7 : Print "The Ratings for ";NAME$(NUMBER);" Are ";ARATING(NUMBER),BRATING(NUMBER)
  822.          Pen 0 : Paper 5 : Locate 1,9 : Print "Press Left Mouse Button to Continue"
  823.          While Mouse Key=0
  824.          Wend 
  825.          Inc NUMBER
  826.          If NUMBER=NUMBEROFHORSES
  827.             Goto FINAL_RATING
  828.          End If 
  829.       End If 
  830.    End If 
  831.    If RATING$="B"
  832.       Cls 5,X Screen(128),Y Screen(91) To X Screen(428),Y Screen(300)
  833.       Curs Off 
  834.       Pen 1 : Paper 5 : Locate 1,7 : Print "The Ratings for ";NAME$(NUMBER);" Are ";ARATING(NUMBER),BRATING(NUMBER)
  835.       Pen 0 : Paper 5 : Locate 1,9 : Print "Press Left Mouse Button to Continue"
  836.       While Mouse Key=0
  837.       Wend 
  838.       Inc NUMBER
  839.       If NUMBER=NUMBEROFHORSES
  840.          Goto FINAL_RATING
  841.       End If 
  842.    End If 
  843.    Goto COMMENCE_RATING
  844.    FINAL_RATING:
  845.    Curs Off : Clear Key 
  846.    Cls 5,X Screen(128),Y Screen(91) To X Screen(448),Y Screen(300)
  847.    NUMBER=0
  848.    If NUMBEROFHORSES<21
  849.       Pen 1 : Locate 1,7
  850.       Print "THESE ARE THE RATINGS FOR THE";HOUR$;":";TIME$;" AT ";MEETING$;" PRESS C TO CONTINUE"
  851.       For NUMBER=0 To NUMBEROFHORSES-1
  852.          Pen 0 : Paper 5
  853.          Locate 1,9+NUMBER : Print NAME$(NUMBER)
  854.          Locate 20,9+NUMBER : Print Using "###";ARATING(NUMBER)
  855.          Locate 25,9+NUMBER : Print Using "###";BRATING(NUMBER)
  856.       Next NUMBER
  857.    End If 
  858.    If NUMBEROFHORSES>20
  859.       Pen 1 : Paper 5
  860.       Locate 1,7
  861.       Print "THESE ARE THE RATINGS FOR THE";HOUR$;":";TIME$;" AT ";MEETING$;" PRESS C TO CONTINUE"
  862.       For NUMBER=0 To 19
  863.          Pen 0
  864.          Locate 1,9+NUMBER : Print NAME$(NUMBER)
  865.          Locate 20,9+NUMBER : Print Using "###";ARATING#(NUMBER)
  866.          Locate 25,9+NUMBER : Print Using "###";BRATING#(NUMBER)
  867.       Next NUMBER
  868.       For NUMBER=20 To NUMBEROFHORSES-1
  869.          Locate 50,NUMBER-11 : Print NAME$(NUMBER)
  870.          Locate 69,NUMBER-11 : Print Using "###";ARATING(NUMBER)
  871.          Locate 74,NUMBER-11 : Print Using "###";BRATING(NUMBER)
  872.       Next NUMBER
  873.    End If 
  874.    Do 
  875.       X$=""
  876.       While X$=""
  877.          X$=Inkey$
  878.       Wend 
  879.       Exit If Key State(51)=-1
  880.    Loop 
  881.    Pen 1 : Clear Key 
  882.    Locate 1,29 : Print "DO YOU WISH TO RATE ANOTHER RACE AT THE SAME MEETING (Y/N)"
  883.    Do 
  884.       X$=""
  885.       While X$=""
  886.          X$=Inkey$
  887.       Wend 
  888.       Exit If Key State(21)=-1
  889.       Exit If Key State(54)=-1
  890.    Loop 
  891.    If Scancode=(21) Then ANSW$="Y" Else ANSW$="N"
  892.    If ANSW$="Y"
  893.       For X=0 To 39
  894.          ARATING#(X)=0
  895.          BRATING#(X)=0
  896.          ARATING(X)=0
  897.          BRATING(X)=0
  898.          SR#=0
  899.          RD#=0
  900.          FP#=0
  901.          BW#=0
  902.       Next X
  903.       Screen To Back 3 : Screen To Front 2 : Screen 2
  904.       Goto RACE_TIMES
  905.    End If 
  906.    If ANSW$="N"
  907.       Locate 1,29 : Print Space$(80) : Clear Key 
  908.       Locate 1,29 : Print "DO YOU WISH TO RATE A RACE AT A DIFFERENT MEETING (Y/N)"
  909.    End If 
  910.    Do 
  911.       X$=""
  912.       While X$=""
  913.          X$=Inkey$
  914.       Wend 
  915.       Exit If Key State(21)=-1
  916.       Exit If Key State(54)=-1
  917.    Loop 
  918.    If Scancode=(21) Then ANSWER$="Y" Else ANSWER$="N"
  919.    If ANSWER$="Y"
  920.       For X=0 To 39
  921.          ARATING(X)=0
  922.          BRATING(X)=0
  923.          ARATING#(X)=0
  924.          BRATING#(X)=0
  925.          SR#=0
  926.          RD#=0
  927.          FP#=0
  928.          BW#=0
  929.       Next X
  930.       Screen To Back 3 : Screen To Front 0 : Screen 0
  931.       Goto FIRST_SCREEN
  932.    End If 
  933.    If ANSWER$="N"
  934.       End 
  935.    End If 
  936.    FLAT_RACE_DATA:
  937.    Data "ASCOT","AYR","BATH","BEVERLEY","BRIGHTON","CARLISLE","CATTERICK","CHEPSTOW","CHESTER"
  938.    Data "DONCASTER","EDINBURGH","EPSOM","FOLKESTONE","GOODWOOD","HAMILTON","HAYDOCK","KEMPTON","LEICESTER"
  939.    Data "LINGFIELD","NEWBURY","NEWCASTLE","NEWMARKET","NOTTINGHAM","PONTEFRACT","REDCAR","RIPON","SALISBURY"
  940.    Data "SANDOWN","THIRSK","WARWICK","WINDSOR","WOLVERHAMPTON","YARMOUTH","YORK"
  941.    NH_RACE_DATA:
  942.    Data "ASCOT","AYR","BANGOR","CARLISLE","CARTMEL","CATTERICK","CHELTENHAM","CHEPSTOW","DEVON"
  943.    Data "DONCASTER","EDINBURGH","FAKENHAM","FOLKESTONE","FONTWELL","HAYDOCK","HEREFORD","HEXHAM","HUNTINGDON","KELSO"
  944.    Data "KEMPTON","LEICESTER","LINGFIELD","LIVERPOOL","LUDLOW","MARKET RASEN","NEWBURY","NEWCASTLE","NEWTON ABBOT"
  945.    Data "NOTTINGHAM","PERTH","PLUMPTON","SANDOWN","SEDGEFIELD","SOUTHWELL","STRATFORD","TAUNTON","TOWCESTER"
  946.    Data "UTTOXETER","WARWICK","WETHERBY","WINCANTON","WINDSOR ","WOLVERHAMPTON ","WORCESTER "
  947.    STONE_DATA:
  948.    Data " 7 Stone "," 8 Stone "," 9 Stone ","10 Stone ","11 Stone ","12 Stone "
  949.    POUND_DATA:
  950.    Data "Exactly "," 1 Pound "," 2 Pounds "," 3 Pounds "," 4 Pounds "," 5 Pounds "," 6 Pounds "," 7 Pounds "
  951.    Data " 8 Pounds "," 9 Pounds ","10 Pounds ","11 Pounds ","12 Pounds ","13 Pounds "
  952.    SEED_DATA_STONES:
  953.    Data "7","8","9","10","11","12"
  954.    SEED_DATA_POUNDS:
  955.    Data "0","1","2","3","4","5","6","7","8","9","10","11","12","13"
  956.    PRIZE_MONEY_DATA_1:
  957.    Data "Under ï¿½400","�400 to ï¿½499","�500 to ï¿½599","�600 to ï¿½699","�700 to ï¿½899","�900 to ï¿½999","�1,000 to ï¿½1,099"
  958.    Data "�1,100 to ï¿½1,299","�1,300 to ï¿½1,499","�1,500 to ï¿½1,799","�1,800 to ï¿½1,899","�1,900 to ï¿½2,099","�2,100 to ï¿½2,399","�2,400 to ï¿½2,699"
  959.    Data "�2,700 to ï¿½2,999","�3,000 to ï¿½3,499","�3,500 to ï¿½3,999","�4,000 to ï¿½4,499","�4,500 to ï¿½4,999","�5,000 to ï¿½5,499","�5,500 to ï¿½5,999",""
  960.    MONEY_RATING_DATA_1:
  961.    Data "30","34","37","39","42","47","49","51","53","55","58","60","62","65","67","70","71","72","73","74","75",""
  962.    PRIZE_MONEY_DATA_2:
  963.    Data "�6,000 to ï¿½6,499","�6,500 to ï¿½6,999","�7,000 to ï¿½7,499","�7,500 to ï¿½7,999","�8,000 to ï¿½8,499","�8,500 to ï¿½8,999","�9,000 to ï¿½9,749"
  964.    Data "�9,750 to ï¿½10,999","�11,000 to ï¿½11,999","�12,000 to ï¿½12,999","�13,000 to ï¿½14,999","�15,000 to ï¿½17,499","�17,500 to ï¿½19,999","�20,000 to ï¿½24,999"
  965.    Data "�25,000 to ï¿½32,499","�32,500 to ï¿½49,999","�50,000 to ï¿½74,999","�75,000 to ï¿½99,999","�100,000 and Over",""
  966.    MONEY_RATING_DATA_2:
  967.    Data "76","77","78","79","80","81","82","84","85","86","87","89","91","92","93","95","97","99","100",""
  968.    FINISH_DATA:
  969.    Data "First  ","Second ","Third  ","Fourth ","Fifth  ","Sixth  "
  970.    FLAT_DISTANCE_DATA:
  971.    Data "5F   ","6F   ","7F   ","1M   ","1M 1F","1M 2F","1M 3F"
  972.    Data "1M 4F","1M 5F","1M 6F","1m 7F","2M   ","2M 1F","2M 2F"
  973.    Data "2M 3F","2M 4F","2M 5F","2M 6F","","",""
  974.    NH_DISTANCE_DATA:
  975.    Data "2M   ","2M 1F","2M 2F","2M 3F","2M 4F","2M 5F","2M 6F"
  976.    Data "2M 7F","3M   ","3M 1F","3M 2F","3M 3F","3M 4F","3M 5F"
  977.    Data "3M 6F","3M 7F","4M   ","4M 1F","4M 2F","4M 3F","4M 4F"
  978.    FLAT_DISTANCE_VALUES_DATA:
  979.    Data "5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22"
  980.    NH_DISTANCE_VALUES_DATA:
  981.    Data "16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36"
  982. End Proc